home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SirTommy.dxr / Internal_7_tab hotspot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.1 KB  |  62 lines
  1. property spriteNum, row, fp
  2. global tableau, equal, currentsel, getlist, godlist, basecard
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   can = [#one: 15, #two: 29, #three: 43, #four: 57]
  7.   fp = can[row]
  8. end
  9.  
  10. on determinerow me
  11.   if spriteNum = 71 then
  12.     return #one
  13.   else
  14.     if spriteNum = 72 then
  15.       return #two
  16.     else
  17.       if spriteNum = 73 then
  18.         return #three
  19.       else
  20.         if spriteNum = 74 then
  21.           return #four
  22.         end if
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.  
  28. on mouseEnter me
  29.   if getlist <> VOID then
  30.     if not findtab(the clickOn) then
  31.       equal = 1
  32.       godlist = tableau[row]
  33.       if tableau[row].getcardcount() = 0 then
  34.         currentsel = fp
  35.       else
  36.         if tableau[row].getcardcount() > 0 then
  37.           if tableau[row].getcardcount() < 14 then
  38.             currentsel = tableau[row].getlastcard().spnum + 1
  39.           else
  40.             equal = 0
  41.             godlist = VOID
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47. end
  48.  
  49. on findtab arg
  50.   if (arg >= 15) and (arg <= 70) then
  51.     return 1
  52.   else
  53.     return 0
  54.   end if
  55. end
  56.  
  57. on mouseLeave me
  58.   equal = 0
  59.   currentsel = 0
  60.   godlist = VOID
  61. end
  62.